home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
UpTime Volume 2 #6
/
utv2n6s2.d64
/
silly snake
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-28
|
10KB
|
297 lines
1 if gh>2 then 20
2 ifgh<>.then14
4 diml(26):dims(16)
6 printchr$(8):printchr$(142)
8 poke53280,.:poke53281,.:print"[147][158]";:c=.
10 gosub 700
14 ifgh=.thengh=1:load"mach",8,1
16 ifgh=1thengh=2:load"ch",8,1
18 ifgh=2thengh=3:load"sprites",8,1
20 poke53280,5:poke53281,6:printchr$(142);
22 t1$="[176]":t2$="[174]":t3$="[173]":t4$="[189]":t5$="[192]":t6$="[221]"
24 s$=""
26 print"[147]"left$(s$,2)" [158]"t1$;:forx=1to36:printt5$;:next:printt2$
28 printleft$(s$,3)" [158]"t6$""t1$;:forx=1to34:printt5$;:next:printt2$;"[158]"t6$
30 forx=1to19:print" [158]"t6$""t6$spc(34)t6$"[158]"t6$:next
32 print" [158]"t6$""t3$;:forx=1to34:printt5$;:next:printt4$;"[158]"t6$
34 print" [158]"t3$;:forx=1to36:printt5$;:next:printt4$
36 print"[158]":a$=" silly snake [146]":gosub850
38 print"[153]":a$="a george r. decker game ":gosub850
40 print:a$="(c)1988 uptime magazine ":gosub 850
52 print" "
54 print" f1...type a snake [144] "
56 print" f3...blast a snake [144] "
58 print" f5...mem snake [144] "
60 print" f7...instructions [144] "
61 print" f8...exit to uptime [144] "
62 print" [144] "
64 print"[144] "
66 print"press [158]+/[158]- to select skill level"
68 print"current skill level is:":sl=3:sh=10:sc=.:poke198,0
70 print"[158]"sl
72 geta$:ifa$="+"thensl=sl+1:ifsl=10thensl=1
74 ifa$="-"thensl=sl-1:ifsl=.thensl=9
76 ifa$=chr$(133)thenjk=.:hu=15:d3=1908:goto100
78 ifa$=chr$(134)thenjk=1:hu=7:d3=1908:goto100
80 ifa$=chr$(135)thenjk=2:hu=40:goto86
82 ifa$=chr$(136)then316
83 if a$="[140]" then 800
84 goto70
86 print"[147] would you like 1, 2, 3, or 4 rows?"
88 print" enter 1, 2, 3, or 4.":poke198,0
90 geta$:ifa$="1"thend3=1188:goto100
92 ifa$="2"thend3=1428:goto100
94 ifa$="3"thend3=1668:goto100
96 ifa$="4"thend3=1908:goto100
98 goto90
100 poke53272,(peek(53272)and240)+14:sys49152
102 gosub304
104 v=53248:poke2040,15:poke2041,14:poke2042,13
106 pokev+39,0:pokev+40,7:pokev+41,7
108 gosub300:ifjk=1then124
110 fora=1to26:l(a)=a:next
112 fora=1to7:b=int(rnd(0)*26)+1:c=int(rnd(0)*26)+1
114 d=l(b):l(b)=l(c):l(c)=d:next
116 d=1:c=1:fora=1188tod3step240:forb=.to21step7:pokea+b,l(c):pokea+b+54272,1
118 s(d)=l(c):d=d+1:c=c+1:next:next
120 ifjk=2thenforx=1tosl*1000:next
122 ifjk=2thenfora=1188tod3step240:forb=0to21step7:pokea+b,63:next:next
124 poke54283,0:pokev+21,0:poke2040,15
126 ifd3=1188thena1=int(rnd(0)*4)+1
128 ifd3=1428thena1=int(rnd(0)*8)+1
130 ifd3=1668thena1=int(rnd(0)*12)+1
132 ifd3=1908thena1=int(rnd(0)*16)+1
134 fort=1toint(rnd(0)*45)+2:poke54273,40:poke54272,200:poke54276,33
136 forx=1to20:next:poke54276,0:next
138 ifjk=1thenvt=137:hz=132:pokev+0,hz:pokev+1,vt:pokev+21,1
140 ona1goto142,144,146,148,150,152,154,156,158,160,162,164,166,168,170,172
142 g=48:h=54:goto174
144 g=105:h=54:goto174
146 g=161:h=54:goto174
148 g=217:h=54:goto174
150 g=48:h=103:goto174
152 g=105:h=103:goto174
154 g=161:h=103:goto174
156 g=217:h=103:goto174
158 g=48:h=150:goto174
160 g=105:h=150:goto174
162 g=161:h=150:goto174
164 g=217:h=150:goto174
166 g=48:h=198:goto174
168 g=105:h=198:goto174
170 g=161:h=198:goto174
172 g=217:h=198:goto174
174 pokev+4,g:pokev+5,h:pokev+21,peek(v+21)+4
176 pp=.:poke198,.:a$=""
178 ifjk=1then240
180 geta$:ifa$=""then188
182 ifa$<"a"ora$>"z"then192
184 w=asc(a$)-64:ifw=s(a1)then206
186 goto192
188 pp=pp+1:ifpp=sl*huthen192
190 goto178
192 pokev+21,0:poke53280,2:poke54273,60:poke54272,100:poke54276,17
194 foryy=1to200:next:poke54273,22:poke54272,190:foryy=1to200:next
196 poke54276,0:poke53280,7
198 sh=sh-1:gosub304:ifsh=.then216
200 ifjk=2then116
202 ifjk<>1thenifint(rnd(.)*10)=2then112
204 goto126
206 poke2042,14:gosub294:pokev+21,0:poke54280,43:poke54279,188
208 poke54283,17:forx=1to20:poke53280,1:poke53280,7:next:poke54283,0
210 poke2042,13
212 sc=sc+10:jj=jj+10:ifjj=100thenjj=.:sl=sl-1:ifsl=.thensl=1
214 gosub304:goto202
216 poke53280,.:poke53281,.
218 print"[147][129]final score final level"
220 print"[153] "sc
222 print" [145]"sl
224 print"":a$="game over ":gosub850
226 print"[158] would you like to play again?"
228 print"[154] (y/n)
230 [153]"verify silly snake a decker game"
232 [151]198,0
234 [161]a$:[139]a$[178]"y"[167][151]53272,21:[153]"load";:[141] 700:[137]20
236 [139]a$[178]"n"[167]800
238 [137]234
240 [158]49813
242 [145][194](14337)[137]246,250,254,258,262,268,274,280
244 [137]284
246 vt[178]vt[171]8:[139]vt[179]45[167]vt[178]vt[170]8
248 [137]284
250 vt[178]vt[170]8:[139]vt[177]230[167]vt[178]vt[171]8
252 [137]284
254 hz[178]hz[170]8:[139]hz[177]250[167]hz[178]hz[171]8
256 [137]284
258 hz[178]hz[171]8:[139]hz[179]15[167]hz[178]hz[170]8
260 [137]284
262 vt[178]vt[171]8:[139]vt[179]45[167]vt[178]vt[170]8:[137]284
264 hz[178]hz[171]8:[139]hz[179]15[167]hz[178]hz[170]8:vt[178]vt[170]8
266 [137]284
268 vt[178]vt[170]8:[139]vt[177]230[167]vt[178]vt[171]8:[137]284
270 hz[178]hz[171]8:[139]hz[179]15[167]hz[178]hz[170]8:vt[178]vt[170]8
272 [137]284
274 vt[178]vt[171]8:[139]vt[179]45[167]vt[178]vt[170]8:[137]284
276 hz[178]hz[170]8:[139]hz[177]250[167]hz[178]hz[171]8:vt[178]vt[170]8
278 [137]284
280 vt[178]vt[170]8:[139]vt[177]230[167]vt[178]vt[171]8:[137]284
282 hz[178]hz[170]8:[139]hz[177]250[167]hz[178]hz[171]8:vt[178]vt[171]8
284 [151]v[170]0,hz:[151]v[170]1,vt:[151]14339,[194](53278):[158]49911
286 [139][194](14337)[178]9[167]290
288 [137]188
290 [139][194](53278)[178]5[167]206
292 [137]192
294 v3[178]54296:w3[178]54276:a3[178]54277:h3[178]54273:l3[178]54272
296 [129]x3[178]15[164]0[169][171]1:[151]v3,x3:[151]w3,129:[151]a3,15:[151]h3,40:[151]l3,200:[130]
298 [151]w3,0:[151]a3,0
300 [151]54296,15:[151]54277,128:[151]54278,128
302 [151]54284,128:[151]54285,128:[142]
304 [153]""sl
306 [153]"print "
308 [153]"print"sh""
310 [139]sc[177]99990[167]314
312 [153]""sc
314 [142]
316 [151]53280,6:[151]53281,6:[153]"loadprint":[153][199](14)
318 [153]" "
320 [153]" right$(NULL)(NULL)(NULL)(NULL)(NULL)len(NULL)right$(NULL)(NULL)(NULL) asc(NULL)(NULL) (NULL)right$(NULL)(NULL)(NULL) (NULL)(NULL)atn(NULL)val stop "
322 [153]"onprint stop wait"
324 [153]" on "
326 [153]"(NULL)hich (NULL)right$(NULL)(NULL)(NULL) (NULL)(NULL)atn(NULL)val game do you need"
328 [153]"instructions for?"
330 [153]"1) (NULL)(NULL)(NULL)val atn (NULL)(NULL)atn(NULL)val":[153]"2) peek(NULL)atn(NULL)(NULL) atn (NULL)(NULL)atn(NULL)val":[153]"3) (NULL)val(NULL) (NULL)(NULL)atn(NULL)val"
332 [153]"def valnter 1, 2, or 3":[151]198,0:a$[178]""
334 [161]a$:[139]a$[178]"1"[167]342
336 [139]a$[178]"2"[167]408
338 [139]a$[178]"3"[167]464
340 [137]334
342 [153]"loadascirst select the skill level by pressing"
344 [153]"onthe + and - keys. (NULL)he skill level"
346 [153]"number will change between 1 & 9. (NULL)he"
348 [153]"lower the number the harder the level."
350 [153]"(NULL)ext select what game you want to play"
352 [153]"and it will then start."
354 [153]"(NULL)n the screen will be 16 bushes. valach"
356 [153]"bush will have a letter on it. (NULL)he"
358 [153]"object is to shoot (NULL)right$(NULL)(NULL)(NULL) (NULL)(NULL)atn(NULL)val when he"
360 [153]"pops up from behind a bush by pressing"
362 [153]"that bush's letter. right$f you wait to"
364 [153]"long he will drop back down."
366 [141] 600
368 [153]"loadatnt the start of each game you have 10"
370 [153]"shots. atns long as you keep hitting"
372 [153]"(NULL)right$(NULL)(NULL)(NULL) (NULL)(NULL)atn(NULL)val you won't lose any shots. "
374 [153]"right$f you miss him by pressing a wrong"
376 [153]"letter or by waiting to long you will"
378 [153]"lose one shot. (NULL)hen all 10 sh